#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

GetOptions( '-s' => \my $delete );

if( $delete ){
    print "lösche Datei\n";
}