open(DATA,"+>>default_ve.txt") || die "Couldn't open file , $!"; while (1) { my $content = $rh->cmd('show system processes extensive | match rpd'); print DATA "$content"; }}