#!/usr/bin/perl
sub one{
print "one";
}
1;