#!/usr/bin/perl -w print "My name is $0...\n";