#!/usr/bin/perl

use strict;
use warnings;

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