use Test::More; use File::Temp qw(tempfile); my $text = 'hi there'; my ($fh,$fname) = tempfile(); print $fh $text; close($fh); ok(!system("vi $fname"),'vi exit OK'); open($fh,'<',$fname) || die "Failed to re-open $fname\n"; local $/; $text = <$fh>; close($fh); unlink($fname); done_testing();