my $mydir = "C:/Perl/bin/newr";