##########################################################
#                        change back slashes to forward
sub slashfwd { 
    my $retval = $_[0];
    $retval =~  s{\\} {/}g;
    return $retval;
}