use strict;
package util;

sub beautify {
    my ($in) = @_;
    my $tmp;
    foreach (split(/\s/o, lc($in))){
        $tmp .= ucfirst($_);
        $tmp .= ' ';
    }
    $tmp =~ s/\s$//;
    return($tmp);
}
1;