$append = 1;
...
if ( $apped )
{
    # Append to my file
}
else
{
    # Trample all over my irreplaceable data
}