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

=head1 NAME

underline

=head1 DESCRIPTION

Converts spaces to underlines in filenames.

=head2 AUTHOR

Paul Jungwirth

=head2 LAST MODIFIED 

$Date: 2003/08/04 13:58:13 $

=cut

my $old_filename;
my $new_filename;

foreach $old_filename (@ARGV) {
	$new_filename = $old_filename;
	$new_filename =~ s/ /_/g;
	rename $old_filename, $new_filename;
}