Select Code to Download

#Here are some fake buttons using sub-canvas:
my $scan1 = $rightframe-> Canvas(-width => 64, -height => 54, -highlig
+htthickness => 0);
...
.... etc
}

#!/usr/bin/perl
use warnings;
...
    }
}