use File::chmod qw(chmod); chmod('u+x', 'sample.pdf');