#!/usr/bin/perl
use strict;

@ARGV or die("missing args");

map{ printf "%s\n", make_fun_of($_) } @ARGV;

exit;

sub make_fun_of { "I think @_ is funny." }