Basically, you need to stat() the file to get its mode and then do a binary OR with 0100 (which I think is u+x) and then chmod $mode, $filename;

my $mode = (stat($filename))[2];
my $new_mode = $mode | 0100;
chmod $mode, $filename);
[download]