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

my $file = 'somefile.txt';

my @args = ("sort", $file);

system(@args) == 0 or die "sytem @args failed: $?";