Perl script, that realize same thing that open command on MacOS X