getSaveFile - Perl Tk

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello, it seems the initialfile option in getSaveFile is not working. I put in test and was hoping the word would appear in the GUI. Here's the code:

use Tk;
$mw=MainWindow->new;
my $save = $mw->getSaveFile(-title=>'TEST',-initialfile=>'test');
[download]

Edit: g0n - code tags