Directory structure:
C:\strawberry\perl\bin\test.pl
C:\strawberry\perl\subs.pm

##</code><code>##

…
sub remove_spaces {
        my ($input, $junk) = @_ ;
        $input =~ s/\s+/ /g ;
        $input =~ s/^ //g ;
        $input =~ s/ $//g ;
        chomp($input) ;
return $input ;
}
…

##</code><code>##

#!C:\strawberry\perl\bin\perl.exe 
#use lib 'C:\strawberry\perl';
#use subs ;
…
	$line = remove_spaces($line);
…

##</code><code>##

C:\strawberry\perl>test.pl
Undefined subroutine &main::remove_spaces called at C:\strawberry\perl\test.pl line 18, <INF> line 1.