#!/usr/bin/perl -w
use strict;

my $file = 'test.txt';
my $arg = pop(@ARGV);

if ($arg eq '-s') {
  print "Verschiebe Datei\n";
#...
} elsif ($arg eq '-l') {
  print "Lösche Datei\n";
#...
} else {
  print "Unbekanntes Argument\n";
}