#!/usr/bin/perl
use IO::File;



sub main{
	my $num = 1979;
	open prices, ">prices.txt";
	do{

		my $filename = $num;
		#if (-e $filename)
		#{
			open(filename, $filename) or return undef;
			//open filename, <$filename;
			while(<MEMINFO>){
				chomp;
				






			
		#}
		close filename;
		num++;
	}while($num < 2010);
	close prices;

}