Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use Tk;
...
sub create{
$canvas->createOval(100, 100, 600, 600,-fill=>'green')
}

Select or download this

# on linux, and you might want to fork it off so it
# dosn't block your program
system("lpr -P lp0 mypsfile.ps");  # lp1, lp2, etc