23 lines
367 B
Perl
Executable File
23 lines
367 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.40.0;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Basename qw/dirname/;
|
|
|
|
BEGIN {
|
|
open my $fh, '>&', \*STDERR;
|
|
open STDERR, '>', '/dev/null';
|
|
system 'perl', 'Build.PL';
|
|
system 'perl', 'Build', 'build';
|
|
open STDERR, '>&', $fh;
|
|
};
|
|
|
|
use blib '/app/Hiperthermia';
|
|
chdir '/app/Hiperthermia';
|
|
|
|
use Exd::Gui;
|
|
|
|
Exd::Gui->new->start();
|