Select Code to Download

#!/bin/perl
use v5.14;
...
path($in)->copy($in =~ s/(\.\w+)?$/.out/r);

__END__

#!/bin/perl
use v5.14;
...
    $out->append("$line\n");
}
__END__