Perl script for output on console for further thinks
Perl script for output on console for further thinks and example sh