pxWyRD - Online Perl Interpreter & Debugging Tool

#
#	Задача:
#	- направление на стандартный вывод
#	Решение:
#	- автор Дмитрий Кузнецов
#   - цена $108.40
#

my $char = <STDIN>;
my $press = <STDIN>;
my $secretary = "Dmitry S. Peskov";
my $i = 1;

print "  |  myDAC-и  |\n";

while ($i <= 361) {
	print "( $i ) \n";
	print "  - ${char}  +  ${press}";
	print "  - $secretary \n";

	$i = $i + 1;
}