Select Code to Download

#!/usr/bin/perl -wpi
my $src = shift;
my $dst = shift;
s/$src/$dst/g;

Use of uninitialized value in substitution (s///) at /home/rj/bin/repl
+ace line 4, <> line 38.
Use of uninitialized value in regexp compilation at /home/rj/bin/repla
+ce line 4, <> line 39.
Use of uninitialized value in substitution (s///) at /home/rj/bin/repl
+ace line 4, <> line 39.
Use of uninitialized value in regexp compilation at /home/rj/bin/repla
+ce line 4,

#!/usr/bin/perl
my $src = shift;
...
    $zeile = '';
    system("mv $file2 $file");
}