Select Code to Download

my $frame = $main->Frame(
    -container => 1, -width => 320, -height => 240
...
    -fill => 'both',
    -expand => 1
);

my $frameID = $frame->id;
print "My ID is: $frameID\n";

#! /usr/local/bin/perl -w

...
    print $display,"\n";
    system($display);
}