Help for this page
#!/usr/bin/perl use IO::Socket; ... close ($sock); __END__
#!/usr/bin/perl use warnings; ... $scanvas->yview('moveto',1); }