#!/usr/bin/perl
use strict;

sub getpied
{
	my $pie = "eat me";
}
1;