#!/usr/bin/perl -d
use strict;
use warnings;

print "1";
print "2";
print "3";