diff --git a/perl-xCAT/xCAT/PPCmac.pm b/perl-xCAT/xCAT/PPCmac.pm
index 686f0108a..86bccfbc1 100644
--- a/perl-xCAT/xCAT/PPCmac.pm
+++ b/perl-xCAT/xCAT/PPCmac.pm
@@ -41,7 +41,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version C=s G=s S=s d))) { 
+    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version C=s G=s S=s d f))) { 
         return( usage() );
     }
     ####################################
@@ -182,6 +182,12 @@ sub ivm_getmacs {
         $cmd.= " -v -x";
     }
     #######################################
+    # Force LPAR shutdown
+    #######################################
+    if ( exists( $opt->{f} )) {
+        $cmd.= " -i";
+    }
+    #######################################
     # Network specified (-D ping test)
     #######################################
     if ( exists( $opt->{S} )) {