#! /usr/bin/perl
#
# dr. shreds memory
#
unless (open(MEM_RW,"<mem_rw.ffo")){
   print "Can't open file mem_rw.ffo\n";
}
unless (open(MEM_AD,"<mem_ad.ffo")){
   print "Can't open file mem_ad.ffo\n";
}
unless (open(MEM_DA,"+<mem_da.ffo")){
   print "Can't open file mem_da.ffo\n";
}
$rw = <MEM_RW>;
close MEM_RW;
if ($rw eq "1\n"){
   print "rw $rw => \$rw has a carriage return\n";
}
chop($rw);
if ($rw eq "1"){
   print "rw $rw => \$rw does not have a carriage return\n";
}
$ad = 0;
$ad = <MEM_AD>;
close MEM_AD;
print "ad $ad\n";
print MEM_DA "1011111101111111101111111111111011111111110111110111111111111000\n";
close MEM_DA;