#####################################################
### Writing to File ###
#####################################################
print "Content-type: text/html\n\n";
$new_info = "My example text here";
#get info from the file
open (example, "./example.txt") || die ("Could not open file. $!");
$text = <example>;
while ($text){
$test =~ /(\d+)/;
my ($count) = $1;
$text = <example>;
}
print "bite me: $count";
close (example);