my $workdir="~/txt";