system (burning command);

if (my $cdburn = $?;) {
     carry on with code
}
else {
     errors
}