package test; use strict; sub Check_File { my $file = `ls -l /tmp/hello.txt > /tmp/result.txt`; } 1