print "invoking cdrecord...\n";
open CD, "cdrecord |" or die "Couldn't run cdrecord";
while(<CD>) {
    # check $_ for whatever output you're looking for
    # or just print $_;
}
close CD;
print "cdrecord finished\n";