Perl Testing using system function

commandline session

$cat test4.pl
#!/usr/bin/perl
use strict;
use warnings;

system "echo 1 > 1";
print "n";
system "echo 2 > 2";
print "n";
system "echo hello";
print "n";
$perl test4.pl


hello

$cat 1
1
$cat 2
2
$