#!/usr/bin/perl
use strict;
use warnings;

my $file = 'somefile.txt';
my @args = ("sort", $file);

open (my $out, ">", "outputfile.txt");

print $out `@args` or die "system @args failed: $?";