my ($old_name, $new_name);

print "Alter Dateiname?\n>>> ";
chomp ($old_name = <>);

print "Neuer Dateiname?\n>>> ";
chomp ($new_name = <>);

unless (-e "$new_name"){
	rename ($old_name, $new_name);
}
else{
	print "'$new_name' existiert schon!\a\n";
}

<>;

use strict;
use warnings;

my $zahl_1	= 10;
my $zahl_2	= 30;

my $ergebnis 	= summe_von ($zahl_1, $zahl_2);

print $ergebnis;	# Ausgabe "40"

<>;


## die subroutine:

sub summe_von{
	my ($zahl_1, $zahl_2)	= @_;	# die parameter sind automatisch in @_ drin

	# also ist jetzt $zahl_1 gleich 10 
	# und $zahl_2 ist gleich 30

	return $zahl_1 + $zahl_2;	# rückgabe der summe (40)
}

use File::Copy qw(move);

my $source_path = 'C:\Pfad\irgendwas';
my $source_file = 'filename.txt';

chomp( my $target = <STDIN> );

unless( -e $target ){
    move $source_path . '\\' . $source_file, $target;
}
else{
    print "Datei $target schon vorhanden"
}

06: chomp( my $target = <STDIN> );