2024-10-29 22:30:15 +01:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
2024-10-29 23:34:47 +01:00
|
|
|
use v5.40.0;
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
2024-10-30 02:09:35 +01:00
|
|
|
use Carp::Always;
|
2024-10-29 23:34:47 +01:00
|
|
|
|
|
|
|
|
use File::Basename qw/dirname/;
|
|
|
|
|
|
2024-10-29 22:32:26 +01:00
|
|
|
BEGIN {
|
|
|
|
|
chdir '/app/Hiperthermia';
|
|
|
|
|
};
|
2024-10-29 23:34:47 +01:00
|
|
|
|
|
|
|
|
use lib '/app/Hiperthermia/lib';
|
|
|
|
|
|
|
|
|
|
use Exd::Gui;
|
|
|
|
|
|
|
|
|
|
Exd::Gui->new->start();
|
