#!/bin/usr/perl


use warnings;


sub dog 
{
print "roof roof im a dog!\n";
}


dog;


1;