in reply to Problem with postscript capturing of Tk::AbstractCanvas

Ha! ha! this works for me  qw/ -x -1200 -y -1200 -width 2400 -height 2400 /,

In Section Seekers of Perl Wisdom