$somestuff = "This is a new line for my data file";
$filename = "d:/foo/bar/myfile.dat";

open (DATA,">>$filename") || die("Cannot Open Database File");
binmode (DATA);
print DATA $somestuff; 
close DATA;