use Text::CSV::Separator qw(get_separator);
use Spreadsheet::ParseExcel::Simple;

Warning: Content-Type header not found in the script output. If this script is not a CGI one, please use the Run -> Run in Command Prompt menu to run it.
Can't locate Text/CSV/Separator.pm in @INC (@INC contains: M:\sabrina C:/Perl/lib C:/Perl/site/lib .) at blubb.pl line 3.
BEGIN failed--compilation aborted at excel.pl line 3

Can't locate Spreadsheet/ParseExcel/Simple.pm in @INC (@INC contains: M:\sabrina C:/Perl/lib C:/Perl/site/lib .)at blubb.pl line 4.

use Text::CSV::Separator qw(get_separator);
use Spreadsheet::ParseExcel::Simple;

Warning: Content-Type header not found in the script output. If this script is not a CGI one, please use the Run -> Run in Command Prompt menu to run it.
Can't locate Text/CSV/Separator.pm in @INC (@INC contains: M:\sabrina C:/Perl/lib C:/Perl/site/lib .) at blubb.pl line 3.
BEGIN failed--compilation aborted at excel.pl line 3

Can't locate Spreadsheet/ParseExcel/Simple.pm in @INC (@INC contains: M:\sabrina C:/Perl/lib C:/Perl/site/lib .)at blubb.pl line 4.

#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::SimpleExcel;

my @data;
my $file      = 'mailbox.txt';
my $delimiter = '\s{2,}|\t|\\';
my $columns   = 2;
my $xls_file    = 'zieldatei.xls';

my $excel = Spreadsheet::SimpleExcel->new();
$excel->add_worksheet('Test');

open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>) {  # alles was unten in __DATA__ steht symbolisiert eine Datei
  chomp $line;
  my @array = (split(/$delimiter/,$line))[0..($columns-1)];

  foreach (@array) {
      s%^\s+%%g; # fuehrende und
      s%\s+$%%g; # abschliessende Blanks entfernen
  } # foreach

  push(@data,[@array]);
} # while
close $fh;

my $format = '';

for my $i(0..scalar(@{$data[0]})-1){
  my $max = find_longest(map{$_->[$i]}@data);
  $format .= '%-'.$max.'s ';
}

for my $entry(@data){
  print sprintf($format . "<<\n",@$entry);
  $excel->add_row('Test',$entry);
}

$excel->output_to_file($xls_file);

sub find_longest{
  my $longest = 0;
  for(@_){
      my $length = length($_);
      $longest = $length if($length > $longest);
  }

  return $longest;
}

perl -MSpreadsheet::SimpleExcel -e 1

im laufwerk c: eingegeben :
perl\bin
C:\perl\bin>ppm install Spreadsheet::SimpleExcel

 Error: No valid repositories: Error:500 Can&acute;t connect to ppm.ActiveState.com:80 <connect: Unknown error>