I have a script which calls a subroutine in a module. There is a possibility that the subroutine would give some error message and I would like to capture the standard error and save it on a file.

Below is what I have done so far, but I'm not sure if I'm doing it correctly or is there a better way of doing it?

Below is my test module.

package test;

use strict;

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

1
[download]

And below is the script that would print the standard error when I call the Check_File subroutine from the test module. So, if the "/tmp/hello.txt" does not exists, then it will give a standard error output. This is what I want to capture and save in a file.

#!/usr/bin/perl

use strict;
use test;

print "Start of print.\n";

open( STDERR, ">", "/tmp/error.txt" )
  or die "Error: Cannot open file - $!";
test->Check_File();
close( STDERR );

print "End of print.\n";
[download]

Any comments are appreciated. Thanks.