$Perl wif Tophat