$ cat -vE test.pl
#!/usr/bin/perl -w^M$
use strict;^M$
^M$
my $log = './logfile';^M$