use Path::Tiny qw/ path /;
select my $bar = path("~/output.txt")->opena_utf8;
print "Hello world!\n";

##</code><code>##

$ perl -
use Path::Tiny qw/ path /;
select path("~/output.txt")->opena_utf8;
print "Hello world!\n";
__END__

$ cat %home%\output.txt
Hello world!

$ del %home%\output.txt

$