#!/home/myhomedrive/opt/perl/bin/perl
#use strict;
use warnings;


use lib '/home/myhomedrive/scripts/lib';

use customPerlMod;

my $string = "  ll ";
$string = trim ( $string );

##</code><code>##

#!/home/myhomedrive/opt/perl/bin/perl
package customPerlMod;

sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

# Left trim function to remove leading whitespace
sub ltrim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    return $string;
}

# Right trim function to remove trailing whitespace
sub rtrim($)
{
    my $string = shift;
    $string =~ s/\s+$//;
    return $string;
}


1;

##</code><code>##

./dupCheck.pl
Undefined subroutine &main::trim called at ./dupCheck.pl line 20, <DATA> line 960.