use strict;
use warnings;

# Code to create Excel spreadsheet goes here
# Spreadsheet will be in variable $fname
# ...

# Now open the spreadsheet
open_spreadsheet($fname);


sub open_spreadsheet {
    my ($fname) = @_;
    system("start Excel \"$fname\"");
}