#!/foo/bar/baz/perl -w