print $0;; C:\Perl64\bin\p1.pl