#!/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." }


##</code><code>##

use Test::Simple 'no_plan';
require './bin/script'; # ?????

for (qw/james cindy susan rob/){
   ok( make_fun_of($_) );
}