in reply to How to use chmod u +x in perl

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

[download]

In Section Seekers of Perl Wisdom