#!/usr/bin/perl

open(my $fd,">","someDir/someFile");
print $fd "this is a line of text\n";
close($fd);