xtb низера не катит( пробовал так

#!/usr/local/bin/perl
use strict;
my $dir = ".";
$dir = $ARGV[0] if defined $ARGV[0];
my @list = scan_dir ( $dir );
my $i = 0;
for ($i =$[; $i <= @list; $i++)

{

system("cd $i./user/;ls >> ../1.txt; cd ..");



}

__END__

не работате((
ругается Undefined subroutine &main::scan_dir called at f.pl line 14. (