winpath,sh

#!/usr/bin/perl -w


foreach $argnum (0 .. $#ARGV) {
        my $curr = $ARGV[$argnum];
        my $replaced = $curr =~ s/\\/\//gr;
        $replaced =~ s|^([A-Za-z])\:/(.*)$|/$1/$2|;
        print "$replaced ";
}

print "\n";