Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $new_name = "$dirname/$basename";
rename ($old_name, $new_name)
  or warn "Can't rename '$old_name' to '$new_name': $!";

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

rename ($old_name, $new_name)
  or warn "Can't rename '$old_name' to '$new_name': $!";