#! perl

use strict;

my $filename = 'C:/shb';

my $action;
if ( -f $filename ) {
    $action = 'rename';
}
else {
    $action = 'create';
}

END {
    if ($action eq 'rename') {
    }
    else {
    }
}