Also, you have a colon where you want a semicolon in line 5:

         my $fail = MainWindow->new();
         #                           ^
[download]

After Compline,
Zaxo