my $error = system('del temp.txt');
print qq(Return value is $error\n);