for ( @ARGV ) { my @answer = filetest( $_ ); print @answer; }