File Perl

use IO::File;
$filehandle = new IO::File;
$filehandle->open(">hello.txt") or die "Cannot open hello.txt";
$text = "Hello!";
$filehandle->write($text, length($text));
$filehandle->close;