This looks like a great learning experience. So what if there's another way to achieve the same thing? (...as you noted.)
My comments, for what they're worth:

You never use $dest, after declaring it with use vars.

If you're using Perl 5.6+, you might want to use 'our', instead of 'use vars'. With Perl 5.6, 'our' obsoleted 'use vars'.
Then again, you might not. 'use vars' is more compatible. So many Ways To Do It!

You store ARGV[0] in $temp twice. (Did you mean == in the if statement?)

Your 'confirmation' questions are wordy, and there is no default. Convention is to make the less destructive option the default.
Maybe set $read to 'T' when declared (i.e. our $read='T') and only change it to 'C' on user request.

You check the 'mv' system call for success, but you don't check the 'rm' call

You have an 'err' sub, but that sub does not call exit. So, even if something goes wrong, your program exits with '0', indicating success.

Suggestion: Wait for more suggestions from others. Once you've got a few, pick the ones that make sense to you, and re-write it. Save a copy of what you have now so that you can compare them.

Update: Fixed formatting. Also, ++ to Anonymonk for the our pointer. 
s!!password!;y?sordid?binger?;
y.paw.mrk.;;print chr 0x5b ;;;
print;print chr(0x5b+0x2);;;;;

[download]

In reply to Re: Oops I did it again..... by mrbbking
in thread Oops I did it again..... by defyance

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.