diff --git a/fish/.config/fish/config.fish b/fish/.config/fish/config.fish
index f0740c6..bf558f5 100644
--- a/fish/.config/fish/config.fish
+++ b/fish/.config/fish/config.fish
@@ -371,6 +371,16 @@ function cdG --description "Select a coredump to run coredumpctl gdb"
   coredumpctl gdb (echo $result | awk -F" " '{print $5}')
 end
 
+function pft --description "Select a process to run perf top"
+  set proc (ps -e | fzf | awk '{print $1}')
+  perf top -p $proc
+end
+
+function pfr --description "Select a process to record performance data in given file name"
+  set proc (ps -e | fzf | awk '{print $1}')
+  perf record -F 99 -o $argv -p $proc
+end
+
 fzf_key_bindings
 
 starship init fish | source