use FindBin;
my $file = "$FindBin::Bin/.termine";