assoc .pl=Perl
ftype Perl=perl -Mouse "%1" %*