#here's the macro
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

##</code><code>##

my $file_name = 'FILE_NAME.xls';
my $xl        = Win32::OLE->new('Excel.Application',
   sub {$_[0]->Quit;}) or die "hlpful err msg";

my $book      = $xl->Workbooks->Add();
my $sheet1    = $book->Worksheets(1);

$xl->{DisplayAlerts} = 0;

$sheet1->{Name} = 'YOUR_SHEET_NAME';

$book->SaveAs($file_name);