sub isWindowsFriendly {
        my ($arg1) = @_;

        $result = 0;

        #Eliminacion de caracteres prohibidos
        if ($arg1 =~ s/[\/\\:?"<>|*]//g) { $result = 1; }

        return ($result);
}