use strict;
use warnings;

my $string="Hello, world!";

print "$string\n";

open OUTPUT, ">sample.txt" or die "Cannot open sample.txt for writing. $!";

print OUTPUT $string;

close OUTPUT;

exit;