#!/usr/bin/perl^M

##</code><code>##

  #!/usr/bin/perl -w^M