system("pvscan>>pv.txt1");
open my $FH,"pv.txt1"  or die "Cannot open file: $!";

##</code><code>##

open my $pvscanFH, '-|', 'pvscan'
   or die "Cannot fork pvscan: $!\n";