#!/usr/bin/perl

use strict;
use warnings;

my $newest = shift @{[sort {-M $a > -M $b} (<img*.jpg>)]};
unlink 'aktuell.jpg' or die "$!" if -e 'aktuell.jpg';
symlink $newest, 'aktuell.jpg' or die "$!";