trying to write to a file

[Matthew Mangione]

hey im trying to write to a file with just like 6 lines of code and it doesnt work so 
I need some help. here is the code:

#!perl

open DATA, "> mydata.dat";

unless ($success) {
 print "Problem Encountered";
 die;
}

print DATA "Hi Matt";



thanx        matt