#!/usr/bin/env perl
use warnings;
use strict;

sub add {  # I am a comment
	my $x = shift;
	my $y = shift;  
	my $sum = $x + $y;
	return $sum;
}
sub subtr { return shift - shift; }
sub foo { return 'foo'.shift }