af897ca
1 2 3 4
($unixname) = @ARGV; $unixname =~ s#^/c##g; $unixname =~ s#/#\\#g; print "$unixname\n";