#!/usr/bin/perl -w
use strict;

my $arg;
my $dest;

for $arg (@ARGV) {
	$dest = $arg;
	$dest =~ s/ /_/g;
	rename $arg, $dest;
}