use strict;
use base 'Class::Accessor::Fast';
+use Config;
use File::Spec;
use File::Path;
use IO::File;
my $name = $self->{name};
my $script = $self->{script};
$self->mk_file( "$script\/server.pl", <<"EOF");
-#!/usr/bin/perl -w
+$Config{startperl} -w
use strict;
use Getopt::Long;
my $name = $self->{name};
my $script = $self->{script};
$self->mk_file( "$script/test.pl", <<"EOF");
-#!/usr/bin/perl -w
+$Config{startperl} -w
use strict;
use Getopt::Long;
my $name = $self->{name};
my $script = $self->{script};
$self->mk_file( "$script\/create.pl", <<"EOF");
-#!/usr/bin/perl -w
+$Config{startperl} -w
use strict;
use Getopt::Long;