#  SimpleFileWriting.pl
#  Example: 7.20
#  ----------------------------------------
#  From "Win32 Perl Scripting: Administrators Handbook" by Dave Roth
#  Published by New Riders Publishing.
#  ISBN # 1-57870-215-1
#
#  This script is used to simply show how one can print data to a file.

if( open( FILE, "> test.txt" ) )
{
  print FILE "Hello there!\n";
  close( FILE );
}