$Perl wif Tophat

Just a @perl with tophat, nothing else