18 lines
210 B
Perl
Executable File
18 lines
210 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.40.0;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Basename qw/dirname/;
|
|
|
|
BEGIN {
|
|
chdir '/app/Hiperthermia';
|
|
};
|
|
|
|
use lib '/app/Hiperthermia/lib';
|
|
|
|
use Exd::Gui;
|
|
|
|
Exd::Gui->new->start();
|