Select Code to Download

use Tk::WinPhoto;
my $imgsheet = $canwellsketch->Photo(
...
    "screenshot.gif",
    -format => 'GIF'
  );

$canwellsketch->postscript(
    -file      => "test.ps",
...
    -height    => 400,
    -pagewidth => 600,
  );