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

@data = qw(gotta have guts to code perl);

use Guts;
my $Gs = Guts->new;
$Gs->gutsy(@data);