if (-s $file) {
   open(FILE, $file) || die "open: $file - $!\n";
   # etc
} else {
   warn "There are currently no links :(\n"; # or similar msg
   exit();
}