Не знам дали ми са праиш на много умен или не си ми разбрал жъпроса ама глеи ся ти пуснамалко сорс и да ти обясня

#!C:\Perl\bin\perl -w
print"Въведи едно число :";
chomp($input=<STDIN>);

е това начи първо ме 4ака да въведа стоиност и после чак след като въведа нещо ми изкарва това "Въведи едно число :"
та ако имаш представа как да го оправя помогни ако не по добре замълчи.

Мерси предварително

'In this life we cannot do great things. We can only do small things with great love'