in reply to Changing file permissions in a script

And this surely isn't right-

open(IMAGE, ">/somedir/$graphfile.png") or die "$_";

Try- 

open(IMAGE, ">/somedir/$graphfile.png")
   or die "Couldn't open /somedir/$graphfile.png for writing: $!";

[download]

In Section Seekers of Perl Wisdom