my $file = $ARGV[0];

my $mode = (stat($file))[2];
    $mode = sprintf '%04o', $mode & 07777;

my $new = $mode | 0001;
print $mode, "\n", $new, "\n";

chmod oct($new), $file;