my $workdir="~/txt";

##</code><code>##

my $workdir = "$ENV{HOME}/txt";