my $filename = "sample.pdf";
qx(chmod u+x '$filename');