#! perl
 
# Create temporary DEBUG script
$dbg = "D FFFF:0005 L 8\nQ\n";
open( DBGSCR, "> biosdate.dbg" ) || die( "Cannot open temporary DEBUG script: $!" );
print DBGSCR $dbg;
close DBGSCR;
 
# Run DEBUG script and filter output;
# improved DEBUG output filtering by Uri "Talentix"
`debug.exe < biosdate.dbg` =~ /(\d\d\/\d\d\/\d\d)/;
print "\nBIOS date: ".."\n";
 
# Delete temporary DEBUG script
`DEL biosdate.dbg >NUL 2>&1`;