#! /usr/bin/perl -w

use strict;

my $source = '/home/blackm/zuhause.jpg';
my $dest = '/tmp/bild.jpg';

open(SOURCE, $source) or die "Cannot open source\n";
open(DEST, ">", $dest) or die "Cannot open destination file\n";

while(<SOURCE>) {
    print DEST $_;
}

close(SOURCE);
close(DEST);