sub printString {
    my ($str) = @_;

    print $str;
}