Select Code to Download

chmod '0755', $file;

use strict;
my $infile=shift;
...
chmod oct($chmod),$outfile or die "Could not chmod";

# and do something with the uid and gid later...