>type 544228.pl
print '!';
>perl -e "require '544228.pl'; require '544228.pl'"
!
>perl -e "do '544228.pl'; do '544228.pl'"
!!