Variable "@dirlist" will not stay shared at test.pl line 17.
Variable "@dirlist" will not stay shared at test.pl line 24.

##</code><code>##

#!/usr/bin/perl -w

use strict;

my @dirs = &getDirs();

sub getDirs() {

	my @dirlist; # PROBLEM!!!
	sub getAns() {
		print qq(Enter a valid directory: );
		chomp(my $ans = <STDIN>);
		if ($ans ne "") {
			if ($ans =~ m/foo/g) {
				push(@dirlist, $ans);
				&getAns;
			} else {
				print qq(That is not a valid directory!\n);
				&getAns;
				}
			} else {
				return @dirlist;
			}
		}
	}

	my @dirs = &getAns();
	
	if (@dirs) {
		return @dirs;
	} else {
		die qq(No directories have been entered!\n);
	}

}