Help for this page
#!/usr/bin/perl ... )->pack(); ... MainLoop();
my $button = $top->Button ( -text => "click me", -command => [\&clicked, \$filename] )->pack();