Help for this page
print $outputfile "$parsedstring\n" or warn 'couldnot write to file';
print $outputfile "$parsedstring\n" or warn "couldnot write to $inpfil +e: $!";
$|=20; print $|;