#!/Perl/bin/perl

use strict;
use warnings;
use File::Spec;
use Data::Dumper;

my @befehle = (
    'psexec \\Server -u Usn -p pwd -i cmd.exe',
    'cd..',
    'cd..',
    "cd Perl",
    "cd tk",
    "cd werbung",
    "werbung.pl -start -hideCursor",
);

print Data::Dumper::Dumper( \@befehle );

system(@befehle) == 0 or die "fehler bei system: ", $?, $!;