#!/usr/bin/perl
use strict;
use warnings;

print "Drücke <Enter>\n";

my $enter = <>;

if($enter){
	system "exit";
	}