#!/usr/bin/perl
# Search_Dir.plx
use warnings;
use strict;

open OUTPUT, ">output.txt";

print "Please input the path to a directory you would like to search: ";
chomp(my $dir_name = <STDIN>);
opendir DIR, $dir_name or die "Couldn't open the specified directory: $!";

search_dir($dir_name);

sub search_dir{
	my $sub_name = shift;
	opendir SUB, $sub_name or die "Couldn't open the specified directory: $!";

	while(my $file = readdir(SUB)){
		next if $file eq "." or $file eq "..";
		next if $file eq "output.txt";

		print $file, "\n";

		if(-d $file){
			search_dir($file);
		}elsif($file =~ /\$\$/){
			print OUTPUT "Possible \$\$ file found: $file\n";
		}
	}
	#close SUB;
}

##</code><code>##

if(-d $file){
    search_dir($file);
}elsif($file =~ /\$\$/){
	print OUTPUT "Possible LIST\$\$ file found: $file\n";
}