A program that uses the $< variable.
#!/usr/local/bin/perl ($username) = getpwuid($<); print ("Hello, $username!\n");