use warnings;
use strict;

open (my $file, '>', "testendings")
   or die "unable to open testendings for write! $!";
   
   
print $file "test\n";