Select Code to Download

[gargle@vlds204 reporting]$ cat ./test.pl 
#!/usr/bin/perl
...

say "alfa";
say "beta";

[gargle@vlds204 reporting]$ ./test.pl 
password: x
alfa
beta

[gargle@vlds204 reporting]$ ./test.pl | tee test.txt
x
password: alfabeta[gargle@vlds204 reporting]$