#!/usr/bin/perl
# b.pl

use strict;

sub getpied
{
    return "eat me";
}
1;