Something

sorel% uname -a
SunOS sorel 5.10 Generic_118855-33 i86pc i386 i86pc
sorel% echo $SHELL
/usr/sfw/bin/zsh
sorel% cat titi.pl 
#!/usr/bin/env perl
print "Titi";
sorel% ./titi.pl 
sorel% perl titi.pl 
sorel%