%perl tn52400.pl
 on #! line at tn52400.pl line 1.