my $button = $top->Button ( 
                           -text => "click me",
                           -command => [\&clicked, \$filename]
                          )->pack();