{
  open my $PREF,     '<',  $pref;
  open my $NEW_PREF, '>>', $new_pref;
  while (<$PREF>) {
    s#$image_directory/.*#$wallpaper"#;
    print $NEW_PREF $_;
}