#!/usr/bin/perl
use warnings;
use strict;

print "$0\n";
__END__
prints:
C:\TEMP\dollar0.pl