Select Code to Download

#!/usr/bin/perl

...

    rename $file, "b/$file" or die "rename $file b/$file: $!\n";
}