my $searchpath="/usr/storage";
        print "Here are the contents of the chosen search path\n"; sleep 2;
        my @files = <$searchpath/*>;
         foreach my $file (@files) {
           print $file . "\n";
         }