ami nared si e.
sa 4astta " @Ehoooo-ho-ho\n" e gre6na
ina4e perl bahmaamu.pl ni_ta_razbrah.txt kydeto bahmaamu.pl ti e:
"#!/usr/bin/perl -w
use strict;

die "Nekyv bug: \n bahmaamu.pl filename.txt\n"
unless @ARGV == 1;
my $filename = $ARGV[0];

open (OUTPUT_FILE, ">$filename") or die "Failyt $! e po-bug-av i ot Windows";
print OUTPUT_FILE "Nishto ne razbiram ot programirane, broiki i razni dolar4eta.\n Trqsssss!\n Ma mnou obi4am da spq v 4ujdi legla...\n @Ehoooo-ho-ho\n";
close (OUTPUT_FILE);

exit (0);"

si ba4ka