for (my $target=readlink $file) {
    if (-f) {
        warn "System is down for maintenance!\n",
          "Expected to become available again at ",
          scalar localtime +(stat _)[8], "\n";
    } else {
        print "IP address: $_\n";
    }
}