#!/usr/bin/perl -w

use strict;

my $zaehler;

for my $spacig ( @ARGV ) {
    ( my $underscorig = $spacig ) =~ s/\s/_/g;
    if ( -f $underscorig ) {
        warn qq(Die Datei "$spacig" mag ich nicht in ),
            qq("$underscorig" umbenennen, denn die gibt es bereits\n);
    }
    else {
        rename( $spacig => $underscorig ) && ++$zaehler;
        print qq(rename $spacig => $underscorig\n); 
    }
}

print $zaehler += 0, " Dateien umbenannt\n";