C:\Perl\community>file.pl
$0: C:\Perl\community\file.pl
C:\Perl\community>more file.pl
#!/usr/bin/perl

use strict;
use warnings;

print '$0: ' , $0;

C:\Perl\community>