pico -w my.anything
======= write inside it
#!/usr/bin/perl

print "Hello world\n";

=== close it (CTRL + X) & save it.
chmod +x my.anything

now you can run it ./my.anything

and it will execute your perl script.

* you can even name it my.jpg & it will execute your perl script