#!/usr/bin/perl -w
    use strict;
    use Text::Bastardize;
    $_ = "Hey don't it work fine";
    my $latin = Text::Bastardize->new();
    $latin->charge($_);
    print $latin->pig(),"\n";