Q:\>ftype perl
perl="C:\Programme\perl\bin\perl.exe" "%1" %*

Q:\>type tmp.pl
#!/usr/bin/perl -l
print for @ARGV;

Q:\>tmp.pl  1 2 3 4 5
1
2
3
4
5